Top 10k strings from Poolswinner (1987)(Selec Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 _______________________ 4 W$="EMPTY" 4 "FIXTURES" 3 ___________________ 3 T$(F(K(J),1 2 insert list number 2 ______________________ 2 ____________________ 2 _________________ 2 S$=R$(F(J,1 2 Print out probs list 2 Print league 2 Matches in fixture list 2 ;T$(X);" ";X+1 2 ;"on these fixtures.": 2 ;"SAVE FIXTURES": 2 )+R$(F(J,2 2 ));" ";P(K(J)) 2 ));" ";T$(F(K(J),2 2 ));" ";L(X,2 2 "hometeam ";X$,"awayteam ";Y$ 2 "DATABASE" 2 "Change which teams points?...";T 2 1983 by SELEC": 1 to store results 1 ting positions...": 1 shift list 1 shift last value 1 probability order list 1 probabilities list 1 postponed match 1 home and away pts 1 effect of league position 1 _____________________________________ 1 ________________________ 1 __________________ 1 _______________ 1 _____________ 1 Y;". ";T$(F(Y,1 1 W$="FULL" 1 W$="EMPTY": 1 Utility: Undetermined 1 Update database 1 UPDATE HISTORY FILE 1 Shift list 1 Selec Software 1 Save new database 1 SCOTTISH 2 PTS WIN 1 S$=R$(F(X,1 1 Prob list beforeordering 1 Prob list before ordering 1 Print out results 1 Pools Winner 1 PRINT OUT FIXTURES LIST 1 POOLS F=P 1 P(J)=P(J)*HE 1 P(J)=P(J)*DE 1 P(J)=P(J)*AE 1 P(J)=P(J)*100 1 P(J)=D(I,N)*100 1 P(J)=D(C,2 1 P(J)=((D(C,N)*WEIGHT)+D(I,N))/((D(C,1 1 Order probabilities 1 Order fixtures probabilities 1 Match count 1 MATCH COUNT 1 Load fixtures tape 1 LEAGUE TABLE 1 Ignore league pos. 1 INPUT RESULTS 1 For Tony Barnett 1 Fill league 1 FIXTURE COUNT 1 Decode database position 1 DATABASE 1 Clear rest of fixtures file 1 Calculate probabilities +assign to P() 1 CREAT FIXTURES LIST 1 C=2 result database, I=1 result database 1 C$="XOWL": 1 Assign probabilities 1 ASSIGN PROBABILITIES 1 ?.....";X$ 1 ;X;". ";T$(F(X,1 1 ;X;". ";T$(F(X,1 1 ;T$(H);" ";T$(A): 1 ;"please wait": 1 ;"do you want to create a new one? ";: 1 ;"been recorded.": 1 ;"_______________________________" 1 ;"_____________": 1 ;"X .... SCORE DRAWS": 1 ;"U ... Record UPDATED database": 1 ;"T ... league TABLES": 1 ;"SP ... SCOT PREM": 1 ;"S2 ... SCOT 2": 1 ;"S1 ... SCOT 1": 1 ;"S ... SAVE fixtures on tape": 1 ;"Results have been recorded";: 1 ;"Results have been recorded": 1 ;"Results have already ": 1 ;"R ... input RESULTS": 1 ;"Prediction is inappropriate.": 1 ;"Please wait"; 1 ;"Please wait": 1 ;"PROBABILITIES": 1 ;"PLEASE WAIT": 1 ;"P ... PREDICTION": 1 ;"No fixture list exists": 1 ;"No fixture list exists" 1 ;"LOAD FIXTURES TAPE": 1 ;"LEAGUE TABLES": 1 ;"L ... LOAD fixtures tape": 1 ;"INPUT RESULTS": 1 ;"I ... INSPECT/change fixtures": 1 ;"H .... HOMES": 1 ;"F ... create FIXTURES list": 1 ;"Do you want to continue?...";: 1 ;"DIVISION - ";Z$: 1 ;"D .... ALL DRAWS": 1 ;"A .... AWAYS": 1 ;"4 .... DIV 4": 1 ;"3 .... DIV 3": 1 ;"2 .... DIV 2": 1 ;"1 .... DIV 1": 1 ;" fixtures loaded": 1 ;" A fixture list exists already,": 1 ;" " 1 2 database prob. note weighting=20 1 1 database probability 1 )=R$(F(X,2 1 )=R$(F(X,1 1 )+R$(F(X,2 1 )*WEIGHT)+D(I,1 1 ));" ";T$(F(K(J),2 1 ));" ";H;" ";T$(F(X,2 1 ));" ";T$(F(X,2 1 ));" ";L(T,2 1 ));" ";T$(F(Y,2 1 'TZXed by Andrew Barker 1 "score.. ";X$;" ";Y$: 1 "press enter to continue...";Q$ 1 "press ENTER to continue...";Q$: 1 "press ENTER to continue..";Q$: 1 "please select... ";X$ 1 "correction ": 1 "change which fixture?..";C: 1 "change any?...";X$ 1 "_________________": 1 "Which DIV.?";Z$ 1 "Weighting..";WEIGHT;" League pos...";P$ 1 "WEIGHTING FACTOR?...";WEIGHT 1 "Use league position?..";P$ 1 "Updating HISTORY file and DATABASE...": 1 "Saving HISTORY file..." 1 "SCORE DRAWS *** 1 "Press enter to continue...";Q$: 1 "Press ENTER to continue...";X$ 1 "Press ENTER to continue..";Q$ 1 "Please wait": 1 "Please load the DATABASE": 1 "Please load FIXTURES file": 1 "Please load HISTORY file": 1 "New points value?...";X 1 "NEW PTS VALUE?....";X 1 "FIXTURE FILE FULL": 1 "Do you have a HISTORY file on tape..(Y/N)... ? ";Q$ 1 "DRAW PROBABILITIES": 1 "Change any?...";D$ 1 "Calculating positions...": 1 "CHANGE AN 1 "Bolton","Bradford","Brentford","Bristol R","Bournmouth","Burnley","Exeter","Gillingham","Hull","Lincoln","Millwall","Newport","Orient","Oxford","Plymouth","Port Vale","Preston","Rotherham","Scunthorpe","Sheff Utd","Southend","Walsall","Wigan","Wimbledon" 1 "Barnsley","Blackburn","Brighton","Cardiff","Cambridge","Carlisle","Charlton","Chelsea","Crystal P.","Derby","Fulham","Grimsby","Huddlesfd","Leeds","Man City","Middlesb.","Newcastle","Oldham","Portsmouth","Sheff Wed","Shrewsbury","Swansea" 1 "Arsenal","Aston V.","Birmingham","Coventry","Everton","Ipswich","Leicester","Liverpool","Luton","Man Utd.","Norwich","Notts F.","Notts Co.","QPR","Southpton","Stoke","Sunderland","Tottenham","Watford","WBA","West Ham ","Wolves" 1 "Are you ready to save the HISTORY file? (Y/N)";Q$ 1 "Are results all correct? ": 1 "Analyse for which?...";A$ 1 "Aldershot","Blackpool","Bristol C","Bury","Chester","Chesterfld","Colchester","Crewe","Darlington","Doncaster","Halifax","Hartlepool","Hereford","Mansfield","Northpton","Peterbro","Reading","Rochdale","Stockport","Swindon","Torquay","Tranmere","Wrexham","York" 1 "Albion R","Arbroath","Berwick","Cowdenbth","Dunfrmline","East Fife","E.Stirling","Forfar","Montrose","Q of South","Queens Pk","Stenhsmuir","Stirling A","Stranraer" 1 "Airdrie","Alloa","Ayr Utd","Brechin","Clyde","Clydebank","Dumbarton","Falkirk","Hamilton","Kilmarnock","Meadowbank","Morton","Partick","Raith" 1 "Aberdeen","Celtic","Dundee","Dundee U","Hearts","Hibs","Motherwell","Rangers","St.Jonstn","St.Mirren" 1 "ANALYSING..."; 1 "ANALYSING ..."; 1 "ALL DRAWS ***": 1 "ADD MORE TO LIST?.....";X$: 1 "(type N to re-input results) ";X$ 1 "(no data)" 1 " POOLSWINNER 1 " POOLSWINNER 1 " HOMES ***": 1 " AWAYS ***": 1 " SAVE UPDATED DATABASE": 1 " PUT THE CAPS LOCK ON!": 1 " *** "; 1 " FIXTURES": 1 " ";: 1 " INPUT FIXTURES": 1 " FIXTURES TAPE": 1 " ";: 1 " __________": 1 " PREDICTION": 1 FILL LEAGUE 1 "